home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / misc_pto / basic-c / test7.bas < prev    next >
BASIC Source File  |  1988-12-21  |  167b  |  11 lines
  1. 100
  2. print "enter sleep time > ";
  3. input s
  4. print "sleeping: ";s;" seconds all the day long"
  5. sleep s
  6. if s = 0 then goto 200
  7. print "sleep over"
  8. goto 100
  9. 200
  10. end
  11.